home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 7 / developer source - volume 7.iso / delph / dec95 / faulf105.gif < prev    next >
Graphics Interchange Format  |  1996-11-15  |  51KB  |  619x411  |  4-bit (16 colors)
Labels: text | screenshot | number | font | parallel | document
OCR: Function Description function IsCardRed[Value: edCardDeck) : Boolean; Accepts a card value. Returns True if card is red, otherwise False. function IsCardBlack(Value; cdCardDeck) : Boolean; Accepts a card value. Returns True if card is black, otherwise False. function IsFaceCard(Value: cdCardDeck) : Boolean; Accepts a card value, Returns True if cord is a face card, othewise False. function AreCardsSameColor(Value1, Value2; edCardDeck) : Accepts two card values. Returns True if cards are the same color, otherwise False. Boolean; function AreCardsSameSuit(Value1, Value2: cdCardDeck] : Accepts two card values. Returns True if cards are the same suit, otherwise False, Boolean; function AreCardsSameValue[Value1, Value2: cdCardDeck) : Accepts two card values, Returns True if the cards have the same face value and the same color, otherwise False. For example, if Boolean; the 2 of spades and 2 of diamonds are passed, True is returned. function CardColor(Value: cdCardDeck) : integer; Returns an integer representing the color of the card passed to it. CARDDECK.PAS defines the following constants for card colors; cdBlack = 1; cdRed 2 function CardSuit(Value: cdCardDeck] : integer; Returns an integer representing the suit of the card passed to it. CARDDECK.PAS defines the following constants for card suits: cdSpade =. 1; cdHeart 2, cdClub 3; cdDiamond 4: function CardValue(Value: cdCardDeck] : integer; Returns an integer representing the face value of the card passed to it. The number 1 represents an Ace, 2 represents a 2, and 13 represents a King.